home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / DirScanner.lha / DirScanner / Rexx / Mark.dsrx < prev    next >
Encoding:
Text File  |  2000-03-31  |  909 b   |  42 lines
  1. /*
  2.     $VER: Mark.sfrx 1.0 (11.3.00) Copyright (c) Nils Görs.
  3.  
  4. This is an Arexx-Script for DirScanner
  5.  
  6. This script need the rexxreqtools.library
  7. */
  8.  
  9. options results
  10.  
  11. PARSE ARG DSPort
  12. IF DSPort = "" THEN DSPort = DIRSCANNER.1
  13. address value DSPort
  14.  
  15.    IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
  16.       IF ~ADDLIB('rexxreqtools.library',9,-30,0) THEN
  17.          quit('Cannot open rexxreqtools.library!',10)
  18.  
  19. varname = 'dsFilterpat.' || dsport
  20.  
  21. pattern = GETCLIP(Varname)
  22. IF pattern = "" THEN pattern = "*"
  23.  
  24. DSScreen = "Workbench"
  25.  
  26. SET LOCKGUI 1
  27. Pattern = rtgetstring(Pattern,"Select Pattern",sfport,"_Ok|_All|Non_e|_Cancel","rt_pubscrname="DSScreen)
  28. Gadget = rtresult
  29. SET LOCKGUI 0
  30.  
  31. IF pattern = "" THEN EXIT
  32.  
  33. say gadget
  34. SELECT
  35.     WHEN Gadget = 0 THEN EXIT
  36.     WHEN Gadget = 1 THEN 'SELECT Pattern'
  37.     WHEN Gadget = 2 THEN 'SELECT ALL'
  38.     WHEN Gadget = 3 THEN 'UNSELECT ALL'
  39.     OTHERWISE
  40. END
  41. CALL SETCLIP(Varname,Pattern)
  42.